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**F ILE**1D**OPENMSG 
000000 PPPPPPPP EEEEEEEEEE NN NN MM MM SSSSSSSS GGGGGG6GG 
PPPPPPPP EEEEEEEEEE NN NN MM MM SSSSSSSS GGGGGGGG 
00 00 PP EE NN NN MMMM MMMM SS GG 
00 00 PP PP EE NN MMMM MMMM SS GG 
00 00 PP ep ct NNNN NN MM MM MM SS GG 
00 00 PP PP EE NN MM MM MM SS GG 
00 00 PPPPPPPP EEEEEEEE NN NN NN MM MM SSSSSS GG 
00 00 PPPPPPPP EEEEEEEE NN MM MM SSSSSS GG 
00 00 PP EE NN NNNN MM MM SS GG GG6GG6GG 
00 00 PP EE NN NNNN MM MM SS GG G6G6G6G6GG 
00 00 PP EE NN NN MM MM SS GG GG cove 
00 00 PP EE NN NN MM MM SS 66 GG eevee 
000000 PP EEEEEEEEEE NN NN MM MM SSSSSSSS GGGGGG eee 
000000 PP EEEEEEEEEE NN NN MM MM SSSSSSSS GGGGGG eoes 
LL IIIIII SSSSSSSS 
LL III SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] S$ 
LL I] $s 
LL I] SSSSSS 
LL Il SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 
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SOCCCOCCOSOSSOSCOSSOSSSOSCSOSOSOSOSSOOSOOSOSOSOSOSCOSOOOOSOOSO 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
WR 9 ODONAUE WN $ O ODNAUE WN | O OOO NAME WH OWONOU SE Wino 


PPS SP IWWWIWIWIIInononononononononong 2 2 2 2 Se 


° 
; 
«8 


COOCoooQooooooooooooooooooooooooooooooooooooo 


COOCOCCOCOOCOOSOOOOOSOOCOOOOCOOOOOOSOOOOCOOSoO 


3; MODIFIED BY: 

: v03-003 TMKO001 Todd M. Katz 05-Apr-1984 

3 Create and delete the logical name SYSSPUTMS using the 

; new logical name system services SCRELNM and SDELLNM instead 
3 of the old system services $CRELOG and S$DELLOG. 

: v03-002 DwT0065 David W. Thiel 18-Jan-1983 

3 Prevent creation of files named SYSSERROR and SYSSOUTPUT. 

: v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
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yon 008 DATA DEFINITIONS met 89:28 :45:38 ({SYS.SRCJOPENMSG.MAR; 1 eat 3) 
is ~SBTTL DATA DEFINITIONS 
4? ; 
48 ; MACRO LIBRARY CALLS: 
50° 
51 $F ABDEF ;DEFINE FAB OFFSETS 
0 : SLNMDEF ;DEFINE LOG NAME SYSTEM SERVICE OFFSETS 
00 SPSLDEF ZDEFINE PROCESSOR STATUS FIELDS 
909 4 SRABDEF [DEFINE RAB OFFSETS 
209 55 SSSDEF SDEFINE SYSTEM STATUS CODES 
809 2$ g 
99 58 ; LOCAL SYMBOLS 
00 59 ; 
000 60 
00000100 0000 61 BUFSIZ=256 ;MAXIMUM RECORD SIZE 
00000118 909 6¢ ESCAPE=1a8+27 yESCAPE EQUIVALENCE NAME PREFIX 
0000 64; 
0000 65 ; LOCAL DATA: 
9000 66 ; 
00 67 
00000009 68 -PSECT YEXEPAGED2,BYTE 
3A 52 GF 52 52 45 24 53 59 53 90" 9000 % ERRNAM: .ASCIC /SYSSERROR:/ :"SYSSERROR' FILE NAME STRING 
008 1 
47 4F 4C 2€ 00° 0008 72 FILTYP: .ASCIC /.LOG/ yDEFAULT FILE NAME STRING 
0010 73 
47 53 4D 54 55 50 24 53 59 53 90" 9019 74 ISINAM: .ASCIC /SYS$PUTMSG/ ;"SYSSPUTMSG’ FILE NAME STRING 
001B «2S s «75 
3A 54 55 50 54 55 4F 24 53 59 53 99" O18 76 OUTNAM: .ASCIC /SYSSOUTPUT:/ :"SYSSOUTPUT’ FILE NAME STRING 
0027 77 
0027 78 TABLE_NAME: ;DESCRIPTOR FOR LNMSPROCESS 
52 50 24 4D 4E 4C 0000g02F F°O 0109000" 90¢7 79 -ASCID /LNMSPROCESS/ 
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OPENMSG - OPEN MESSAGE FILES FOR SYSTEM OUTPUT A 16-SEP-1984 00:39:27 VAX/VMS Macro V04-00 P | 
v04=000 OPEN MESSAGE FILES FOR SYSTEM OUTPUT AND met 99:28:95 SYS. SRCJOPENMSG.MAR; 1 _ ad 
A ee -SBTTL OPEN MESSAGE FILES FOR SYSTEM OUTPUT AND ERROR 
A $ : EXESOPEN_MSG - OPEN FILES FOR SYSTEM OUTPUT AND ERROR 
0 A 5 : THIS ROUTINE IS CALLED TO OPEN FILES FOR SYSTEM OUTPUT AND ERROR. 
O3A 5 : INPUTS: 
6 A § ; NONE 
03A 90: é 
0 A 91 : OUTPUTS: 
6 A 38 : RAB'S ARE ALLOCATED ON THE STACK FOR THE FILES 'SYSS$OUTPUT’ AND 
903A 94: "SYSSERROR', AND THE FILE ISI/IF1 VALUES ARE OBTAINED EITHER BY ACTUALLY 
00 A 93 OPENING THE RESPECTIVE FILES OR BY LOGICAL NAME TRANSLATION. 
003A 33 : R10 = ADDRESS OF ALLOCATED 'SYSS$OUTPUT’ RAB. 
003A so: R11 = ADDRESS OF ALLOCATED ‘SYSS$ERROR’ RAB. 
003A «99: i= 
003A 100 
005A 13 EXESOPEN_MSG:: ZOPEN MESSAGE FILES FOR SYSTEM OUTPUT AND ER. 
OO3A 103; 
bo aa 19 3; ALLOCATE 2 RABS FOR SYSSOUTPUT AND SYSSERROR ON THE CALLER'S STACK 
003A 196 ? 
50 BEDO 003A 10 POPL RO ;SAVE RETURN ADDRESS 
SA BC AE 9E 003D 108 MOVAB ~=RABS$C_BLN(SP),R10 SALLOCATE SPACE FOR 'SYSSOUTPUT’ RAB 
5B FF78 CE 9E 0041 109 MOVAB =-2*RABSC_BLN(SP) R11 TALLOCATE SPACE FOR 'SYSS$ERROR' RAB 
SE 5B DO 0046 110 MOVL R11,SP [SET NEW STACK ADDRESS 
50 DD 0049 111 PUSHL RO SRESTORE RETURN ADDRESS | 
0048 118 | 
0048 113; 
0048 114 : ALLOCATE AND INITIALIZE A FAB FOR OPENING THE FILES 
0048 116° | 
SE BO AE 9€ 0048 119 MOVAB -FABSC_BLN(SP),SP ZALLOCATE SPACE FOR FAB 
59 SE DO OO4F 118 SP, “SAVE ADDRESS OF FAB 
69 0050 8F 00 69 00 2¢ 0032 119 MOVCS #0,(R9),#0,#FABSC_BLN,(R9) ;CLEAR FAB 
01 a9 50 8F 90 005A 120 MOVB #$#FABSC_BLN.FABSB_BLN(R9) ;SET LENGTH OF FAB 
9 03 90 OOSF 121 MOVB #FABSC~BID.FAB D “SET IDENTIFICATION OF FAB | 
35 a9 AB AF 90 006¢ 1g8 OVB FILTYP;FAB$B ONSTR9) SET DEFAULT NAME STRING SIZE | 
AD A2 AF YE 0067 12 MOVAB FILTYP+1,FABSL_DNA(R9) :SET DEFAULT NAME STRING ADDRESS 
36 A9 0100 BF O66 124 MOVW #BUFSIZ,FABSW_ARS(R9) | :SET MAXIMUM RECORD SIZE 
A9—s«éO 125 OVB #FABSM BUT -FABSB_FAC(R9) 7SET FILE ACCESS MODE 
076 «1 6 ASSUME FABSM SQ0 LE 2 
04 A9 02000040 BF 0 0076 1 VL ABSA_CIF'FABSM_SQO,FABSL_FOP(R9) ;SET FILE OPEN OPTIONS 
1E a9 02—ts«éO990? 007 8 MOVE #FABSM~CR,FABSB_RAT(R9) ;SET ATTRIBUTES 
0 130 ; 
09 : INITIALIZE BOTH RABS 
1 . 
6A 00464 8F 00 6A 00 3¢ 5 134 MOVCS #0,(R10),#0,#RABSC_BLN,(R10) ;CLEAR OUTPUT FILE RAB 
1 O8A 135 MOVB #rABs¢_BiD.RaBSB_BTD(RIO) :SEf RAB BLOCK IDENTIFICATION 
01 AA 44 BF 90 0 p 1 é MOVB #RABSC™BLN RABSS BLN(R10) :SET RAB BLOCK LENGTH 
3C AA 559~—ts«éOO 1 MOVL  R9,RABSL_FAB(RIOS sSET ADDRESS OF FAB 


K 16 
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04-000 OPEN MESSAGE FILES FOR SYSTEM OUTPUT AND ScSEP=1obe Doiaeise Lee ec TaSE me mags t — 
% 1 ASSUME F EQ a8 
ga? AA Qi 90 3 135 MOVB aS POF a8 RABSL_ROP+1(R10) ;APPEND TO END OF FILE 
6B 0044 8F 2 1 140 ROVE #RABSC BLN ( (R 10),,(R (R71) ;DUPLICATE OUTPUT FILE RAB 
07 AB OBO BF sé A 146 vB pRaesh HE ar on. ROP+3(R11) ;SET CANCEL CONTROL 0 
AS (144; 
A5 145 : TRANSLATE THE LOGICAL NAME SYSSPUTMSG TO SEE IF THE FILE IS ALREADY 
OA 146 : OPENED VIA A PREVIOUS CALL. IF THE LOGICAL NAME EXISTS, ITS TRANSLATION 
OAS 147 : CONSISTS OF THE ISI'S FOR THE OUTPUT AND ERROR RABS, SO RE-ESTABLISH 
Tt 148 : THE EXISTING STREAM AND BYPASS THE OPENS. 
. A5 150° 
FF68 CF OOF aDAs 151 PUSHAB ISINAM+1 ;BUILD ISI NAME STRING DESCRIPTOR 
7E FF63 CF 9A OOA9 138 MOVZBL ISINAM,-(SP) 
58 SE «600 6(O0AE 15 MOVL SP,R8 [SAVE ADDRESS OF ISI NAME STRING DESCRIPTOR | 
BE g¢ C2 0081 15% SUBL #12 sP SALLOCATE SPACE FOR EQUIVALENCE NAME 
& E 00 00B4 155 MOVL SPR :SAVE ADDRESS OF EQUIVALENCE NAME 
3e DD 0087 136 PUSht SF ;BUILD EQUIVALENCE NAME LOESCRIPTOR | 
56 SE DO 00BB 158 OVL $P,R6 TSAVE ADDRESS OF EQUIVALENCE NAME DESCRIPTOR | 
OOBE 139 ST RNLOG -§ LOGNAM= (RB) . - [TRANSLATE LOGICAL NAME 
50 01 81 gopi 161 CHP sass NORMAL , RO NORMAL COMPLETION? 
67 0118 8F BI 9006 188 CMPW ss ESCAPE, (R7) ‘SPECIAL ESCAPE EQUIVALENCE NAME? 
67 13 OODB 164 BEQL 408 SIF EQL YES 
Sopp 168 
900 169 ! CREATE FILES FOR SYSSOUTPUT AND SYSSERROR AND SAVE RESULTANT ISI VALUES 
DD 169° 
SO FFIF CF 9€ ints 170 10$:  MOVAB  ERRNAM,RO :GET ADDRESS OF *SYSSERROR' NAME STRING 
7D 10 OOE2 171 BSBB ss CREATE. FILE CREATE 'SYSSERROR’ FILE 
55 54 DO O00E4 1% MOVL  R4,R5 ~ SSAVE "SYSSERROR' IF 
50 FF30 CF 9 00E7 17 MOVAB OUTNAM,RO 'GET ADDRESS OF 5SYSSOUTPUT' NAME STRING 
73. 10 OOEC 17% BSBB CREATE “FILE CREATE “SY SSOUTPUT" FILE 
52 55 dO OOEE 175 MOVL RS Re SSET 'SYSSERROR' IFI 
5358 06 OOF? 176 MOVL R11,R 'SET "SYSSERROR’ RAB 
5D 0610 ~«400F4~= «177 BSBB CONNECT RAB [CONNECT RECORD STREAM 
55 54 B1 OOF6 178 CMPW :*SYS$SOUTPUT' AND ‘SYSSERROR' IFI'S MATCH? 
0A 13 OOF9 179 BEQL 20 og" TIF EQL YES 
OOrR 184 
GOrB : : "SYSSERROR’ AND "SYSSOUTPUT’ ARE NOT THE SAME FILE 
OFB 184° 
52 54 00 OOFB 185 MOVL R4,R2 :SET "SYS$OUTPUT’ IFI 
53 SA «(OO OCOOFE 1 6 MOVL  R16,R3 [SET ‘SYSSOUTPUT’ RAB 
50 10 0101 1 BSBB CONNECT RAB [CONNECT RECORD STREAM 
11 01 - 1 8 BRB 0$ 
: & 150 : 
3 1% : "SYSSERROR' AND "SYSSOUTPUT' ARE SAME FILE 
105 193 ° 
02 AA 02 AB BO 0105 194 208:  MOVW  RABSW_ISI(R11),RABSW_ISI(R10) ;COPY ISI NUMBER 
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von0 OPEN MESSAGE FILES FOR SYSTEM OUTPUT AND ae ioet} 7 99:22:93 SYS.SRCJOPENMSG.MAR; 1 . (3) 
118 
} " \ > CREATE LOGICAL NAME ''SYSSPUTMSG’’ EQUIVALENCED TO ERROR AND OUTPUT ISI NUMBERS 
10A 199 ° 
67 011B 8F 9 10A 0 30$: MOVW #ESCAPE, (R7) s INSERT SPECIAL ESCAPE PREFIX 
02 A? 0 AA BO O10F 1 MOVW  RABSW_ISI(R10),2(R7) | SINSERT "SYSSOUTPUT’ ISI NUMBER 
04 A7 AB BO 0114 g MOVW RABSW 4$1(R11) ,4(R7) INSERT "SYSSERROR' ISI NUMBER 
06 A7 24 BO 0119 0 MOVW ra Th ) INSERT *SYSSOUTPUT' IFI NUMBER 
08 A7 5 80 110 Oe MOVW R5,8(R7) INSERT "SYSSERROR' IFI NUMBER 
7E 7C 0121 06 CLRQ -(SP) ;ZERO END OF ITEM LIST MARKER 
1 ; AND STRING RESULTANT LENGTH BUFFER 
9F 01 08 PUSHAB (R7) DDRESS OF TRANSLATION STRING 
0002000A Hi DD 4 5 09 PUSHL #<LNMS_STRING @ 16 + 10>: STRine ITEM TYPE AND STRING BUFFER SIZE 
dO 4 4 19 MOVL SP,R1 zADDRESS OF ITEM LIST 
ot c 1g SCRELNM_S - CREATE THE LOGICAL NAME SYSSPUTMSG 
12E 1 ITMLST = (R1),- zADDRESS OF ITEM LIST 
012E 14 LOGNAM = (R8),- sADDRESS OF LOGICAL NAME DESCRIPTOR 
012E 15 TABNAM = TABLE_NAME *ADDRESS OF TABL E NAME DESCRIPTOR 
SE 10 CO oe) 16 ADDL2 #16,SP ;REMOVE ITEM LIST FROM STACK 
0144 18 ; 
He: 3 ; INSERT ISI NUMBERS IN RABS AND RETRIEVE ERROR/OUTPUT EQUIVALENCE INDICATOR 
0144 . 
02 AA 02 A7 BO 0144 $¢ 408: MOVW 2(R7) ,RABSW_ISI(R10) : INSERT *"SYSSOUTPUT’ ISI NUMBER 
02 AB 04 A7. BO 0149 22 MOVW 4(R7) ,RABSW_ISI(R11) SINSERT "SYSSERROR' ISI NUMBER 
SE 6C AE 3 Otee gee MOVAB FABSC_BLN+8712+8(SP) ,SP ; REMOVE ALLOCATED” SPACE FROM STACK 
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INES ~3Eb1 982 BSi28i8h PANCW RS Hare vO4=00 Kents 
.SBTTL INTERNAL SUBROUTINES 
> CONNECT_RAB = CONNECT RECORD STREAM 
; THIS ROUTINE IS CALLED TO CONNECT A RECORD STREAM TO A RAB. 
: INPUTS: 
: Re = : FILE fl HUMBER. 
: R bRESS F RAB. 
> OUTPUTS: 
: THE SPECIFIED RAB IS CONNECTED AND IMPLIED CARRIAGE CONTROL IS INSERTED 
: IN THE RESULTANT ISI NUMBER 
: NOTE ALL ERRORS ARE IGNORED. 
CONNECT_RAB: ;CONNECT RAB 
“MOVW  —«aR2, FABSW_IFI(R9) SINSERT IFI NUMBER 
SCONNECT RAB=(R3P ;CONNECT RECORD STREAM 
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CREATE_FILE 
THIS ROUTINE IS CALLED TO CREATE A FILE AND RETURN THE RESULTANT IFI. 

NOTE THAT wee ae ae bent PRIVILEGES THE IMAGE MAY HAVE ARE Nar at 
REMOVED BY THIS ROUTINE DURING ITS EXECUTION. THIS IS TO PREVENT A USER 
FROM WRITING BOGUS FILES BY REDEFINING SYSSOUTPUT OR SYSSERROR. 

INPUTS: 

RO = ADDRESS OF FILE NAME COUNTED STRING. 
OUTPUTS: 

R4 = RESULTANT FILE IFI NUMBER. 


NOTE ALL ERRORS ARE IGNORED. 
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CREATE_FILE: sCREATE FILE 
3409 80 90 MOVB  (RO)+,FAB$B_FNS( (R9) S INSERT FILENAME STRING SIZE 
2c a9 60~—té«*PDE’ MOVAB (RO), FABSL_FNA(R9) SINSERT FILE NAME ADDRESS 
07 +BB PUSHR #*M<RO,R1,R2> ;SAVE R2 AND ALLOCATE PRIVILEGE MASK BUFFER 
52 SE 0 OVL SP, R2 :P Yer TO PRIVILEGE MASK BUFFER 
SSETPRV_S PRMFLG=#1,PRVPRV=(R2) :READ PROCESS CURRENT PRIVILEGES 
62. 62. 02 MCOML “(R2), (R2) [GENERATE COMPLEMENT 
04 A2 04 A2 D2 MCOML 4(R25,4(R2) [OF PRIVILEGE MASK 
SSETPRV. S PRMFLG=# d. ENBFLG=#0,PRVADR=(R2) ,PRVPRV=(R2) ;CLEAR AMPLIFIED PRIVI 
02 a9 ««B4 CLRW = FABSW_IFI(R9) :CLEAR IFI NUMBER 
1E a9 02—S—s«90 MOVB  #FABS$" CR,FABSB_RAT(R9) :SET RECORD ATTRIBUTES 
1F Ad «602~—so90 MOVB #FABSC"VAR,FABSE_ RFM(R9)” - SET RECO RD FORM 
50 DC MOVPSL RO EAD CURRENT PSL 
02 18 €ED CMPZV #PSLSV CURMOD #PSLSS_ CURHOD, = ; CURRENT MODE USER? 
03 50 0,#PSC$C_USER 
05 «13 BEQL F EQL YES 
0004 a9 12 ~«€2 BBSS _ #FABSV_PPF ,FABSL_FOP(R9), ‘108 SET PROCESS PERMANENT FILE 
10$: SCREATE FAB=(R9) REATE FIL 
54 02 a9 3C MOVZWL FABSW_IFI(R9),R4 ere RESULTANT IFI NUMBER 
SSETPRV_S PRMFLG=#0,ENBFLG=41,PRVADR=(R2) ;RESTORE IMAGE PRIVILEGES 
07 BA POPR “#*M<RO,R1,R2> sCLEAN STACK AND RESTORE R2 
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EXESCLOSE_MSG = CLOSE MESSAGE FILES OPENED BY EXESOPEN_MSG 
RAN hag RT NR 
CLOSED HERE. 
INPUTS: 

LOGICAL NAME ‘'SYSSPUTMSG'’ CONTAINING 5 WORDS: 

ESCAPE ,OUTISI,ERRISI,OUTIFI,ERRIFI 

OUTPUTS: 

THE FILES ARE CLOSED, IF POSSIBLE. 


EXESCLOSE_MSG:: 


: IF WE ARE IN USER MODE, KEEP THE FILE 
: BECAUSE THEY WILL EVENTUALLY GET CLOS 
t IMAGE IS RUNDOWN. 


S OPEN AS AN OPTIMIZATION 
ED BY RMS RUNDOWN WHEN THE 
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WHW HMMM MMMMMMMMS OS SCO VC OVS FTIFANAAAAAAOAAHOHOAHAAOHOAOOOHOOOOHOOOOOOOOO 
PUPP BS BB BB BEB AAAI AIAN IPO PONOPONIPONPYPD 2 SS SS SOO DOOOOOOCOCCW 
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50 oC MOVPSL RO :GET CURRENT PSL 
03 50 O02 18 €D CMPZV  #PSLSV_CURMOD,#PSL$S_CURMOD,RO,#PSLS$C_USER ;IN USER MODE? 
01 12 BNEQ 10$ s BRANCH T 
05 SEXIT = LEAVE FILES OPEN 
: ALLOCATE AND INITIALIZE A FAB FOR OPENING THE FILES 
3C «BB 10S: PUSHR #*M<R2,R3,R4,R4,R5> 
SE BOAE 9E MOVAB i ARSC BLN(SP) , SP ALLOCATE SPACE FOR FAB 
6E 0050 8F 00 6€ 00 2 MOVCS (SPY, 50, prabac _BLN, (SP); 
52 «SE. oO MOVL aie LE NDRESS OF FAB 
ASSUME FABRE BLN EQ FABSB_BID+1— 
62 5003 8F  B0 MOVW #FABSC_BID+<FABSC eatNaa>, FABSB_BID(R2) ;SET BLOCK ID/LENGTH 
+ TRANSLATE THE LOGICAL NAME SYSSPUTMSG TO SEE IF THE FILE IS OPENED VIA 
> EXESOPEN_MSG. IF THE LOGICAL NAME EXISTS, GET THE IFI°S AND USE THEM 
: TO CLOSE-THE FILES. 
FE21 CF OOF PUSHAB ISINA ;BUILD ISI NAME STRING DESCRIPTOR 
7E aa ct 9A MOVZBL ISINAM,=(SP) 
5 —E D MOVL SP,R3 :SAVE ADDRESS OF ISI NAME STRING DESCRIPTOR 
5E o¢ C SUBL #12,5P TALLOCATE STORAGE FOR EQUIVALENCE NAME 
S.COCSSE'Cé*O MOVL  SP,R4 [SAVE ADDRESS OF EQUIVALENCE NAME 
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s;BUILD EQUIVALENCE NAME DESCRIPTOR 


TSAVE ADDRESS OF EQUIVALENCE NAME DESCRIPTOR 
S TRANSLATE LOGICAL NAME 


aa COMPLETION? 
: SPECIAL “a EQUIVALENCE NAME? 


D4 
S FOR SYSTEM OUTPUT A oe P=1984 
“SEP=1984 


-_— 
wm 


re 
mr 


| ees IF I(R2) 
$CLOSE FAB=( 
; IF SYSSOUTPUT IS NOT THE SAME AS SYSSERROR, THEN CLOSE IT 

s;BOTH IFI*S THE SAME? 
; ae IF ute 


(R4) ,FABSW_IFI(R2) 


MOV NTO FA 
$CLOSE FAB=(R2) ‘etOse SYSSOUTPUT 


: DELETE LOGICAL NAME ''SYSSPUTMSG'’ TO INDICATE FILES CLOSED. 


tant * Loeices NAME FOR SYSSPUTMSG 
F LOGICAL NAME DESCRIPTOR 
‘ADDRESS OF TABLE NAME DESCRIPTOR 


An ye BLsB61268(SP), SP ;DEALLOCATE FAB AND SCRATCH SPACE 
»R5> ;RESTORE REGISTERS 
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M—OOONOUS WN 0 DOONAN EWN) CO OONOME WN OVOONO 7 
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Symbol table -SEP-1984 


mS 
zo 
= 
n< 
ae 4 
=i 
& 
2 
a 


$$. TMP) = 00 1 
$8. Thee = 800000 
oe $1Z = $38 1 

CONNECT RAB 153. R 0 
EREATE PILE 8 161 R 8 
ERRN 000 R 
EE CAPE = $ 11B 
EXESCLOSE MSG hg RG 8s 
EXESOPEN_ASG 0 $ A RG 0 
FABSB_BID = 00000000 
FABSB_BLN = 48h 
FABSB_DNS = 09 5 
FABSB_FAC > 16 
FABSB_FNS = 00000034 
FABSB_RAT = QQQOOO01E 
FABSB_RFM = 0000001F 
FABSC_BID = 00000003 
FABSC_BLN = 9000005 
FABSC_VAR = 00000 9 
FABSL_DNA = 000000 
FABSL_FNA = 0000002C 
FABSL_FOP = 00000004 
FABSM_CIF = 02000000 
FABSM_CR = 00000002 
FABSM_PUT = 00000001 
FABSM_SQO = 00000040 
FABSV _PPF = 6000001¢ 
FABSW_IFI = 9000009 
FABSW_MRS = 00000036 
FILTYP 00000008 R 02 
ISINAM 00000010 R 02 
LNM$_STRING = 0000000 

TNAM 4 4 9d R 02 
PSLSC_US = 0000000 
PSL$S_CURMOD : 90000008 
PSL$V_CURMOD = 0000001 

$8_B1D = 00000000 

$B_BLN = 00000001 
RABSC_BID = 00000001 
RABSC_BLN = 90000064 

SL_FAB = 0000003C 
RABSL_ROP = 90 004 
RABSM_CCO = 80000000 
RABSM_EOF - 900 9100 
RAB$V_CCO 2 1F 
RABSV_EOF = 000 0 08 
RABSW_ ISI = 0000000 
SS$_NORMAL = 0000000 
SYSSCLOSE eeeeeree GX 
SYSSCONNECT eeeereee GX 
SYSSCREATE eererere GX 
SYSSCRELNM erreeree GX 
SYSSDELLNM teereere GX 
SYSSSETPRV eeeeeree GX 
SYSSTRNLOG eeeeeree GX 
TABLE _NAME 00000027 R 02 
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: 
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PSECT name Allocation PSECT No. Attributes 

. _ABS 00000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

ABSS 00000000 <( g-? 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

YEXEPAGED2 0000025 ¢ 605.) 02 ¢ 2.) NOPIC USR CON REL LCL .NOSHR EXE RD WRT NOVEC BYTE 
dew mera mae cancer awn ee es 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization $9 00 100200 07 00:00:00.83 

Command processing 106 00:00:00.54 00:00:05.03 

Pass 1 271 00:00:08.23 00:00:25.49 

Symbol table sort 0 bs Be dS LY B28 he 80 

Pass 82 00:00:01.6 00:00:05.76 

Symbol table output 8 00:00:00.08 00:00:00.08 

Psect synopsis output 2 00:00:00.02 00:00:00.02 

Cross-reference output 0 b's Bo 00:00:00.00 

Assembler run totals 500 06:00:11.7 00:00:40.08 


The working set Limit was 1350 pages. 

46490 bytes (91 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 799 non-local and 8 local symbols. 
392 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

23 pages of virtual memory were used to define 21 macros. 


eee etree eee ee ee ew ee eee wee eH} 


Macro Library name 


“$3 35SDUA28: £SV5-084]L18-mB 2) 0 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 18 
TOTALS (all Libraries) 18 


959 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:OPENMSG/OBJ=OBJ$:OPENMSG MSRC$:OPENMSG/UPDATE=(ENHS:OPENMSG) +EXECML$/LIB 
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